﻿Imports System.Text.RegularExpressions

Module Utils

    Public Structure AionPlayer
        Dim Nom As String
        Dim Classe As String
        Dim Id As Long
        Dim Note As Integer
        Dim Comment As String
        Dim Connu As Boolean
        Dim CptAP As Long
        Dim CptXP As Long
        Dim CptKinah As Long

    End Structure
    Public ChatFilelogPath As String
    Public ChatFilelogName As String
    Public ScreenShotFilePath As String
    'C:\Program Files (x86)\GameforgeLive\Games\FRA_fra\AION\Download\Screenshot
    Function DetectClasse() As String

    End Function
    Function IsFileLogPresent()

    End Function
    Function ParseLine(ByVal Line As String)

        'Dim pattern As String = "\[(?<datestring>[^\]]+)\]"
        'Dim input As String = "[Mon Jan 4 2011] Blah Blah2 Other text"
        'Dim match As Match = Regex.Match(input, pattern)

        ' Get the first named group.
        'Dim group1 As Group = match.Groups.Item("datestring")
        'Console.WriteLine("Group 'datestring' value: {0}", If(group1.Success, group1.Value, "Empty"))

        If InStr(Line, "a infligé") <> 0 Then
            If InStr(Line, "Coup critique !") <> 0 Then

            Else

            End If
        Else
            If InStr(Line, "Vous avez gagné") <> 0 Then
                If InStr(Line, "Points abyssaux") <> 0 Then

                Else

                End If
            End If
        End If



    End Function
End Module

